home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / sys / s / PatriciaSearch < prev    next >
AmigaDOS Script File  |  1996-08-08  |  2KB  |  71 lines
  1. .key Language/A,DB/A,DEV
  2. .bra {
  3. .ket }
  4.  
  5. CD {DEV}:Contrib/Patricia
  6.  
  7. Failat 26
  8.  
  9. Which >NIL: AmigaGuide
  10. IF WARN
  11.     Path SYS:Utilities :C ADD
  12. ENDIF
  13.  
  14. IF {DB} EQ "ALLDB"
  15.     ; Environment-Variablen werden offenbar nach 128 Zeichen abgeschnitten. :-(
  16.     Set PatDB1 ":Index/PatriciaDB"
  17.     Set PatDB2 ""
  18. ;    Set PatDB1 ":Index/PatriciaDB :Pearls/text/Gesetze/AmigaGuide-Gesetze/PatriciaDB"
  19. ;    Set PatDB2 ":Pearls/text/AmigaReport/PatriciaDB :Pearls/text/SciFi/PatriciaDB"
  20. ELSE
  21.     Set PatDB1 "{DB}"
  22.     Set PatDB2 ""
  23. ENDIF
  24.  
  25. :C/Version >NIL: 39
  26. IF NOT WARN
  27.     Run >NIL: :C/NessyOpenLib :SYS/Libs/libs39/triton.library
  28.     Set CloseLibName :SYS/Libs/libs39/triton.library
  29. ELSE
  30.     :C/Version >NIL: 37
  31.     IF NOT WARN
  32.         Run >NIL: :C/NessyOpenLib :SYS/Libs/libs37/triton.library
  33.         Set CloseLibName :SYS/Libs/libs37/triton.library
  34.     ELSE
  35.         IF {Language} EQ "deutsch"
  36.             :C/RequestString "Wonach soll gesucht werden?" "" ENV:MPPATPATTERN ENV:MPPATPATTERN
  37.             IF WARN
  38.                 Skip endpatsearch
  39.             ENDIF
  40.         ELSE
  41.             :C/RequestString "What shall I search for?" "" ENV:MPPATPATTERN ENV:MPPATPATTERN
  42.             IF WARN
  43.                 Skip endpatsearch
  44.             ENDIF
  45.         ENDIF
  46.         :C/ESCChars <ENV:MPPATPATTERN >ENV:MPPATPATTERN2
  47.         PSearch -s "$MPPATPATTERN2" -v ":C/MetaTool [] TEXT" -g ":C/MetaTool [] GUIDE" - $PatDB1 $PatDB2
  48.         Delete QUIET ENV:MPPATPATTERN2
  49.  
  50.         QUIT 0
  51.     ENDIF
  52. ENDIF
  53.  
  54. Assign >NIL: EXISTS MeetingPearls4:
  55. IF WARN
  56.     Assign C: :C ADD
  57.     Set PatCName 0
  58. ELSE
  59.     Set PatCName 1
  60. ENDIF
  61.  
  62. :C/NessyWaitForLib $CloseLibName
  63. PSearch $PatDB1 $PatDB2 TextViewer ":C/MetaTool [] TEXT" GuideViewer ":C/MetaTool [] GUIDE"
  64. :C/NessyCloseLib $CloseLibName
  65.  
  66. IF $PatCName EQ 0
  67.     Assign C: :C REMOVE
  68. ENDIF
  69.  
  70. LAB endpatsearch
  71.